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-- File: BootScript.Mesa 

-- Last edited by Sandman; May 10, 1978 1:40 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
AltoFileDefs: FROM "altof iledef s" . 
BootCacheDefs: FROM "BootCacheDefs", 
BootmesaDefs: FROM "bootmesadefs", 
ControlDefs: FROM "controldef s", 
FakeSegDefs: FROM "fakesegdef s". 
InlineDefs: FROM "in! inedef s" . 
SegmentDef s: FROM "segmentdef s",. 
StreamDefs: FROM "streamdef s" . 
WartDefs: FROM "wartdefs"; 

DEFINITIONS FROM FakeSegDefs, AltoDefs, ControlDefs, WartDefs. BootmesaDefs; 

BootScript: PROGRAM [data: POINTER TO BootData] 

IMPORTS BootCacheDefs, BootmesaDefs, StreamDefs, SegmentDefs, FakeSegDefs 

EXPORTS BootmesaDefs, FakeSegDefs 

SHARES ControlDefs - 
BEGIN 

FileHandle: TYPE - SegmentDef s.FileHandle; 
FileSegmentHandle: TYPE » SegmentDef s .FileSegmentHandle; 
DataSegmentHandle: TYPE » SegmentDef s.DataSegmentHandle; 



— Wart Script Management 

TableSeg: DataSegmentHandle; -- segment for the script table 

TableFileSegment: FileSegmentHandle <- NIL; 

Tablelndex: Bootlndex; -- index of next free slot 

TableSize: CARDINAL; -- size of segment 

VMtablebase: Address; -- location of table in user space 

GetBootlndex: PUBLIC PROCEDURE RETURNS [Bootlndex] - 
BEGIN RETURN[TableIndex]; END; 

GetBootTable: PUBLIC PROCEDURE RETURNS [CARDINAL] - 
BEGIN RETURN[LOOPHOLE[data.tableBase]]; END; 

InitializeBootScript: PUBLIC PROCEDURE - 
BEGIN OPEN SegmentDefs; 

TableSeg ^ NewDataSegment[Def aultBase, 1]; 
Tablelndex ♦■ LOOPHOLE[0]; 

data. tableBase ^ DataSegmentAddress[TableSeg]; 
TableSize ^ PageSize*TableSeg. pages; 
data.bsheader <- @BSHeader; 
RETURN 
END; 

BSHeader: BootScriptHeader; 

FinishBootScript: PUBLIC PROCEDURE [startframe: Global FrameHandle] RETURNS [headerloc: Address] 
BEGIN 

r: Stop BootScriptEntry <- BootScriptEntry[Stop[]]; 
BSHeader. user ^ UserControl []; 
BSHeader. nub <- NubFrame[]; 
BSHeader. av ^ data.AVbase; 
BSHeader. gft ♦- data.GFTbase; 
BSHeader. sd ^ data.SDbase; 
BSHeader. tablebase *- VMtablebase; 
AppendBootWords[@r, SIZE[Stop BootScriptEntry]]; 
headerloc ^ LOOPHOLE[TableIndex, CARDINAL] + VMtablebase; 
AppendBootWords[@BSHeader, SIZE [BootScriptHeader]]; 
SegmentDefs .Unlock[TableFileSegment]; 
SegmentDefs.DeleteFileSegment [TableFileSegment]; 
RETURN 
END; 

DeclareVMBounds: PUBLIC PROCEDURE [b: VMBounds] - 
BEGIN 

BSHeader. ffvmp ^ b.ffvmp; 
BSHeader. If vmp ^ b.lfvmp; 
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END; 

BootTableOverflow: ERROR ■ CODE; 
ExpandingAllowed: BOOLEAN ♦- TRUE; 

ExpandBootTable: PROCEDURE ■ 
BEGIN OPEN SegmentDefs; 
newseg: DataSegmentHandle; 
newbase: POINTER; 

IF -ExpandingAllowed THEN BootmesaError["BootTableOverf low"L]; 
newseg ♦- NewDataSegment[Def aul tSase, TableSeg,pages+l]; 
newbase ^ DataSegmentAddress[newseg3; 
InlineDefs.COPY[ 

from:data.tableBase, to: newbase, nwords : Tab leSeg.p ages ♦PageSIze]; 
DeleteDataSegment[TableSeg]; 

TableSeg ^ newseg; TableSize <- TableSeg.pages*PageSize; 
data.tableBase <- newbase; 
RETURN 
END; 

AppendBootWords: PROCEDURE [addr: POINTER, count: CARDINAL] ■ 
BEGIN 
WHILE LOOPHOLE[TableIndex, CARDINAL] + count > TableSize DO 

ExpandBootTable[]; 

ENDLOOP; 
IF count ■ THEN ERROR; 
InlineDefs.COPY[ 

from: addr, to:data. tableBase+LO0PH0LE[TableIndex, CARDINAL], nwords: count]; 
Tablelndex <- Tablelndex + count; 
RETURN 
END; 

DeclareBootCommand: PUBLIC PROCEDURE [c: WartDef s .BootCommand] ■ 
BEGIN 
r: Command BootScriptEntry <- 

BootScriptEntry[Command[command: c, fill:]]; 
AppendBootWords[6r, SIZE[Command BootScriptEntry]]; 
RETURN 
END; 

DeclareSwapOut: PUBLIC PROCEDURE [f: GlobalFrameHandle] - 
BEGIN 
r: SwapOutCode BootScriptEntry <- 

BootScriptEntry[SwapOutCodeCframe: f. fill:]]; 
AppendBootWords[0r, SIZE[SwapOutCode BootScriptEntry]]; 
RETURN 
END; 

DeclareOpenFiles: PUBLIC PROCEDURE ■ 
BEGIN 

r: OpenFile BootScriptEntry ♦- BootScriptEntry[OpenFile[f ill :]]; 
AppendBootWords[@r, SIZE[OpenFile BootScriptEntry]]; 
END; 

NILZ: POINTER ■ LOOPHOLE[0]; 

PagePointer: TYPE = MACHINE DEPENDENT RECORD [page, byte: [0..256)]; 

DeclareSegment: PUBLIC PROCEDURE [s: FakeSegmentHandle] RETURNS [BOOLEAN] - 
BEGIN 

r: Segment BootScriptEntry +■ 
BootScriptEntry[Segment[ 

filll:, 

data: s.File « data.vmFile, 

access: s. Access, 

base: s.Base, 

pages: s. Pages. 

vmpage: 0, 

handle: NILZ]]; 
IF s.SwappedIn THEN r. vmpage <- LOOPHOLE[s . VMaddress, PagePointer], page; 
SetS0gmentBootLink[s, LOOPHOLE[TableIndex, SegmentBootlndex]]; 
AppendBootWords[@r, SIZE[Segment BootScriptEntry]]; 
RETURN [FALSE] 
END; 
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DeclareCodeLink: PUBLIC PROCEDURE [f: Global FrameHandle] RETURNS [BOOLEAN] - 
BEGIN 

cseg: FakeSegmentHandle ■ BootCacheDefs.READ[0f .codesegment]; 
r: CodeLink BootScriptEntry ^ BootScriptEntry[Cod0Link[ 
fram8:f , 

codes eg: GetSegmentBootL ink [cseg]]]; 
AppendBootWords[0r, SIZE[CodeLink BootScriptEntry]]; 
RETURN [FALSE] 
END; 

DeclareUnlock: PUBLIC PROCEDURE [s: FakeSegmentHandle] ■ 
BEGIN 

r: Unlock BootScriptEntry; 
i: SegmentBootlndex; 

IF (i*-GetSegmentBootLink[s]) # Nul IBootlndex 
THEN 

BEGIN 

r <- BootScriptEntry[Unlock[seg: i]]; 

AppendBootWords[@r, SIZE[Unlock BootScriptEntry]]; 

END; 
RETURN 
END; 

UnlockFrame: PUBLIC PROCEDURE [f: GlobalFrameHandle] ■ 
BEGIN 

Decl areUnl ock[BootCacheDef s . READ[0f . codesegment]] 
END; 

WriteScriptSegments: PUBLIC PROCEDURE - 
BEGIN OPEN StreamDefs, SegmentDefs; 
base: PageNumber; 
pages: PageCount; 
tseg: FakeSegmentHandle; 
freespace: CARDINAL ♦- NumberSwappedIn[]*SIZE[Unlock BootScriptEntry] + 16 

+ SIZE[WartDefs.BootScriptHeader]; 
WHILE TableSize < freespace + LOOPHOLE[TableIndex. CARDINAL] DO 

ExpandBootTable[]; 

ENDLOOP; 
pages ^ TableSeg. pages; 
data.vmTableSeg ^ tseg ^ 

FakeNewSegment[DefaultFile, GetVMBounds[].ffvmp» pages, Read+Write]; 
SegmentToMap[tseg] ; 
VMtablebase ♦- tseg .VMaddress; 
[] ^ DeclareSegment[tseg]; 
EnterMapSegment[tseg]; 

base ♦■ Getlndex[data. imageStream] .page+1; 
IF WriteBlock[data. imageStream, data. tableBase,pages*PageSize] # 

CARDINAL[pages*PageSize] THEN ERROR; 
CleanupDiskStream[data. imageStream]; 
DeleteDataSegment[TableSeg]; TableSeg *- NIL; 

TableFileSegment <- NewF i 1 eSegmen t [ da ta. imageFile, base, pages, Read+Write]; 
Swap In[ Tab leFileSegment]; 

data. tableBase ^ FileSegmentAddress[TableFileSegment]; 
ExpandingAllowed <- FALSE; 
CleanupDiskStream[data. imageStream]; 
RETURN 
END; 

END... 



